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Introduction 

Microsoft Excel 2002 now provides you with a new way to view and update data in real time. This real-time data 
(RTD) feature is great for worl<ing with constantly-changing data such as stock quotes, currency exchange rates, 
inventory levels, price quotes, weather informattei*, spsrte scores, and so on. 

In the past, developers have had to rely on technologies such as Dynamic Data Exchange (DDE) to access real-time 
data sources. DDE has a different function format from standard Excel functions and wasn't designed for getting 
real-time data into Excel in a robust and high-performance way. The RTD feature overcomes these issues. 

In this article, I explain how you can develop RTD solutions, and I provide you with a fully-functioning RTD example, 

complete with source code available as a download that accompanies this article. 

Before we begin, you should be familiar with the notion of a real-time data source, an RTD server, and a topic. 

• A real-time data source can be any source of data that can be accessed programmaticaliy. Some examples of 
common real-time data sources are Microsoft Access and Microsoft SQL Server datat>ases, and XML data files. 

• An RTD server is a Component Object Model (COM) Automation server that implements the IRtdServer 

interface. Excel uses the RTD server to communicate with a real-time data source. 

• A topic is a string (or a set of strings) that uniquely Identifies a piece of data that resides in a real-time data 
source. A topic may exist by itself or it may reside in a hierarchy of leaves. For example, a topic could be as 
simple as "MSFT" or "Address", but could also be more complex, such as "MSFT", "BID_PRICE" or 
"Employee", "SSN", "Address". A good analogy is to thinl< of a topic as a file name, with these files residing 
in folders. So the "BID_PRICE" file would reside in the "MSFT" folder, and the "Address" file would reside in the 
"SSN" subfolder, which in turn would reside in the "Employee" folder. The RTD server passes the topic to the 
real-time data source and receives the value of the topic from the real-time data source; the RTD server then 
passes the value of the topic to Excel for display. For example, the RTD server passes the topic "MSFT" to the 
real-time data source, and the RTD server receives the topic's value of "$72.12" from the real-time data source. 
The RTD server then passes the topic's value to Excel for display. 



The Now & Today RTD Server 

You can try out a simple RTD server called the Now & Today RTD server that is available in the sample download 
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that accompanies this articie. To try out the Now ISt Tteii^ RTD server: 

1. Locate the file RTDTime.dil in the sampie doMtMoai^ 

2. On the Start menu, click Run. In the Open list, type regsvr32.exe "C:\Path-to-RTD- 
Server\RTDTime.dii", where Path-to-RTD-Server is the path to the RTDTime.dil file on your local computer. 

Note On computers running Microsoft Windows® 98 or later, regsvr32.exe is located in the 
System folder. On computers running Microsoft Windows NT® 4.0 or later, regsvr32.exe Is 
located in the System32 folder. 

3. Start a new, bianic Excei worldxmit and type the fbiiowing function into cell Al: sRTD 
("RTDTime.RTD"„"ilow") 

4. Right-click cell Al and click Format Cells. 

5. On the Number tab, in the Category list, click Time. In the Type list, elide the entry that looks similar to 
1:30:55 PM, and then click OK. The time shMM »!itomat1cally update every few seconds. 

If you see the value #N/A in cell Al, make sure that you've successfully registered the RTDTime DLL on your 
computer, that you've typed the RTD function exactly as shown in step 3 above, and that your security level is not 
set to High (see the Security section below for more information). 

Under the Hood 

So how does the interaction occur between Excel, the RTD server, and the real-time data source? 

On an Excel worksheet, a user types the RTD function into a cell, specifying the name of the RTD server, the 

computer on which the RTD server is running, and the topic name. 

When the RTD function is called. Excel instantiates the RTD server (a COM Automation server that implements the 
IRtdServer interface) on the specified server by calling the RTD server's ServerStart method. 

Next, the ConnectData method tells the real-time data source that Excei is "connected" to the specific topic, and 
Excel retrieve the topic's initial value. 

When the real-time data source updates a topic. Excel uses an ZRTDUpdateEvent callback object's UpdateNotlfy 

method to notify the RTD server that new data is available (the IRTDUpdateEvent callback object is instantiated 
by the RTD server as a liaison between itself and the real-time data source). After the throttle interval has expired 
(the default Is two seconds, but can be changed through the RTD object's ThrotUelnleival property in Excel), 
Excel calls the RefreshData method to get the new value for the specified topic. 

When the topic is no longer needed (for example, the user removes the reference to the topic from the worksheet). 
Excel calls the DisconnectData method to remove the topic from its list of topics that it is monitoring. 

When the RTD server is no longer needed (for example, the user quits Excel), Excel calls the ServerTerminate 
method, and then the RTD server terminates itself. 

Security 

One of the most common initial problems you encounter when you are using the RTD function in Excel is a problem 
with your security setting. 

• If you have your security level In Excel set to High (the default setting), then no RTD servers will be available 
unless they are digitally signed and trusted. If the security level is set to High, then all you see is #N/A in cells 
that use the RTD function, and Excel provides no additional explanation as to why the RTD functions aren't 
working. 

• If you set your security level in Excel to Medium, Excel asks you if you want to run any RTD servers that are 

not digitally signed and trusted and that are referenced by RTD functions. 

• If you set your security level to Lowf, then all RTD servers run, regardless of whether they are digitally signed 
and trusted. Of course, setting your security level to Low presents a considerable security risk. 
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To view or change your security level in Excel, on the Tools m&m, point to Macro, click Security, and click the 
tecurity Level tab. 

Syntax 

The syntax for the Excel RTD worksheet function 1$: 

=RTD(ProgID, Server, Stringl, String2, ... Strlng28) 

• The ProgID parameter is a required String value representing the progrannmatic ID (ProglD) of the RTD server. 

• The Server parameter Is a required String value representing the name of the computer on your intranet 
(using Distributed COM (DCOM)) on which the RTD server is running. If the RTD server Is running on the local 
computer, leave tills parameter blank or use two w^MI^ marte (""). 

Note When you use the RTD method of the WorksheetFunctlon object, you cannot leave 
the Server parameter blank; you mu^ use two <)Uotatton marks to represent the local computer. 

• The Stringl through String28 parameters represent topics to be sent to the RTD server. Only the Stringl 
parameter Is required; the Stringl through String28 parameters are optional. There is a limit of 28 parameters, 

and in most cases, only the Stringl parameter is used. The actual values for the SMngl through StTing28 

parameters depend on the requirements of the real-time data server. 

No RTD servers are shipped with Microsoft Office XP. If you haven't installed any real-time data servers or you use 
the wrong syntax for the RTD function, you get tHe en@r message #NAME? or #N/A in any cell that references the 
RTD function. 

As stated in the Introduction , in order for the Excel RTD function to use the RTD server, the RTD server must 
implement the IRtdServer Interface. The members of the IRtdServer interface are described in the following 
table: 



IRtdServer interface method 



Cenneea>^(r(ay»lcIO, brings, 6mtNmMValtM0i 



DisconnectDataC Top/cID) 



Heartbeat 



Description 



This method is called whenever Excel requests new 
topics from the RTD server. The TopicID parameter is a 
required Long value that represents a unique, arbitrary 
value automatically assigned by Excel (for example, 
"34") that identifies the topic. 

The Strings parameter is a required array of one or more 
Variant values that the user enters into the RTD 
function to uniquely Identify the topic. This Variant array 
should always be an array of String values. 

The GetNewValues parameter is a required Boolean 
value; True if new values are to be retrieved. Leave the 
GetNewValues parameter alone if you want Excel to use 
Ithe previous value that It had saved with the Excel 

spreadsheet. 

This method is called whenever Excel no longer requires 
ia specific topk:. 

The TopicID parameter is a required Long value that 
represents the arbitrary, unique value automatically 
assigned by Excel in the ConnectData method that 

identifies the topic. 

If the RTD server is no longer able to process 
RefreshData method calls, the Heartbeat method 
enables Excel to pop up a dialog box that says "The real- 
time data server 'XYZ' Is not responding. Would you like 
Microsoft Excel to attempt to restart the server?" 
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This method returns a Long value; a value of 1 indicates | 

that the real-time data server connection still exists, and 
a value of zero (0) or a negative value indicates that the j 
real-time data server connection no longer exists. ! 


RefreshDa^CropleGoufit) 


Jliter a call from the IRTDUpdateEvent callback object's 
UpdateNotIfy method, this method is called by Excel to j 
pull new values from the real-time data server (also { 

known as a topic refresh). 

This method returns a two-dimensional array of Variant 
values. The first dimension represents a list of topic IDs; 
these topic IDs map to the TopicID parameter in the 
ConnectData method above. This is how Excel 
associates topics with data. 

The second dimension represents the values associated 
with the topic IDs. 

The TopicCount parameter is a required Long value that 

the RTD server provides; it represents the number of 
elements returned in the array of Variant values. 


ServerStart(CallbacfcOI»^ct} 


This method is called when Excel requests the first topic 

from the real-time data server. 

This method returns a Long value; a value of 1 Indicates 
a successful request, and a value of zero (0) or a 
negative value Indicates a failed request. 

This method call is immediately followed by a call to the 
ConnectData method. 

The CallbackObject parameter is a required 
IRTDUpdateEvent callback object that the RTD server 
uses to notify Excel when it should gather updates from 
the RTD server through the IRTDUpdateEvent callback 
object's UpdateNotIfy method. 


ServerTerminate 


This method is called when Excel no longer requires 
topics from the RTD server (for example, the user quits 
Excel). 


The members of the IRTDUpdateEvent callback object are described in the following table: 


IRTDUpdateEvent callback object member 


Description 


Heartbeatinterval property 


This property returns or sets the Ome Interval between 
RTD server updates. 

This property retums a Long value that represents the 

number of milliseconds between RTD server updates; this 
property cannot be set below the default of 15,000 
milliseconds, because of the standard 15-second RTD 

server timeout. 


Disconnect method 


This method tells Excel that the real-time data source will 
be disconnecting from the RTD server. Excel can use this 
method to take some type of action before it loses its 
RTD connection. 


UpdateNotIfy method 


This method is called by the RTD server when it has a 

new value for one or more topics. 



You can use development tools such as Microsoft Visual Basic® 6.0 Professional or Enterprise Edition to create an 
RTD server. You cannot create an RTD server by using the Visual Basic for Applications (VBA) development 
environment in Excel, nor can you create an RTD server by using the COM Add-In Designer that is included with 
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Microsoft Ofnce XP Developer. 

Lef s build on wh^ you've learned so (3r by creattilg mh RTD server. 
Solution: Wide World Importers Price List 

This RTD solution is based on a fictitious company named Wide World Importers. Wide World Importers imports and 

sells fine furniture from around the world. Their merchandise sales prices change rapidly as foreign currencies 
change and foreign goods are imported into their Seattle warehouse. In this example, we will create an RTD server 
that updates the prices of Wide World Importers' price list every five seconds. For this example, pretend that this 

price list takes the form of an XML file that is generated from an XML-compliant database server (such as Microsoft 
SQL Server 2000). You could easily modify the solution to connect directly to a SQL Server or Microsoft Access 
database. 

To create the RTD server: 

1. Start Visual Basic 6.0 Professional or Enterprise Edition on your local computer where Excel 2002 and the 
MSXML 3.0 parser are installed (alternatively, you can skip down to step 14 to bypass entering all of the code). 

2. In the Newr Project dialog box, click the Ac^hneie MX Icon, and then click OK. 

3. In the Properties window, change the (NaMMlifititperty of Classl to XMLRTD. 

4. On the Project menu, click References. Check the Microsoft Excel 10.0 O^ect Library box and the 
Microsoft XML, vB.O box, and then click OK. 

5. In the Code window for the XMLRTD class, type the following: 

Option Explicit 

Implements Excel . IRtdServer 

Private mcolTopics As Collection 
Private Const SUCCESS = i 

Private Function IRtdServer_ConnectData (ByVal TopicID As Long, _ 
Strings As Varieuit, GetNewValues As Boolean) _ 
As Variant 

On Error Resume Next 

Dint cd)j Topic As New CTopio 

mcolTopics .Add Item: =obj Topic, Key : =CStr (TopicID) 
objTc^ic.Tc^icID = TopicID 
(^jT<q?ic.T(^icStrlng = Strings (0) 

gobjXMLDoc. Iioad xmlSource : =XMIi_FIIiE_PftTH 

Set gobjXMLNode = gobjXMIiDoc.selectSingleNode _ 

(ROOT_NODE & LCase (Strings (0))) 
oi}jT<^ic.TopicValue = gob jSOiNode . Text 

IRtdServer_ConnectData = obj Topic .ToplcValue 

End Function 

Private Sub IRtdServer_DisconnectData _ 
(ByVal TopicID As Long) 

mcolTopics . Remove Index: =CStr (TopicID) 

End Sub 

Private Function IRtdServer_Heartbeat ( ) As Long 

IRtdServer_Heartbeat = SUCCESS 
End Function 
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Private Function IRtdServer_Ref reshData _ 
(TopicCount As hoag) As Variaoi^ U 

Dim obj Topic As CTopic 

Dim intArrayCounter As Integer 

ReDim avarUfdates (0 To 1, Q To m€i^l(||pii«i,(^>unt - 1) As Variant 

For Each obj Topic In mcolTopics 

objTopic .Update 

avarUpdates ( , intArrayCounter) = objTopic. TopicID 
avarUpdates (1, intArrayCounter) = objTopic . TopicValue 
intArrayCounter = intArrayCMril'SV 4 I 
Next objTopic 

TopicCount = mcolTopics . Count 
IRtdServer_Ref reahData = avarUpdates 
End Function 

Private Function IRtdServer_ServerStart _ 

(ByVal CallbackObject As Excel . IltWmiSateBvent) _ 
As Long 

Set gob j Callback = CallbackObject 

Set mcolTopics = New Collection 

Set gcdsjXHLDoc = Hew HSXMIi2 .DOHQeeim^tSO 

glngTimerlD = SetTimer (hHnd:=0, nIDEvent:=0, _ 

uBlapse : sTlHER_lNTERVAL , IpTimerFunc : =Addres80f TimerCallback) 

If glngTimerlD > Then IRtdServer_ServerStart = SUCCESS 

End Function 

Private Sub IRtdServer_ServerTerminate ( ) 

Dim objTopic As CTopic 

For Each objTopic In mcolTopics 

mcolTopics . Remove Index : =CSt* fcl^jil^^ic . TopicID) 
Next objTopic 

Set objTopic = Nothing 

Call KillTimer (hWnd: =0 , nIDEvent : =glngTimerID) 
End Sub 

6. On the Project menu, click Add Class Module and click OK. 

7. In the Properties window, change the (Name) property of Classl to CTopic. 

8. In the Code window for the CTopic class, type the following: 

Option Explicit 

Private mlngTopicID As Long 
Private rastrTopicString As String 
Private mvarValue As Variant 

Friend Property Let TopicID (IngZD As Long) 

mlngTopicID = InglD 

End Property 

Friend Property Get TopicID () As Long 
TopicID = mlngTopicID 
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End Property 

Friend Property Let TopicString (strTopic As String) 

BtrTopic = LCase (strTopic) 
mstrTopicStrlng = strTopic 

End Property 

Friend Sub l^pdateO 

On Error Resume Next 

gob jXHIiDoc . Load xmlSoarce : =XKL_F'&MJI9SH 

Set gobjlQCyjode = golij:mLDoc.selectSiagleNode(queryString:aROOT_llODE & mstrTopicString) 
ntvarWalue » gob jJMLKode. Text 
End Sub 

Friend Prcq^rty Qet ToplcValueO As V^iimM 

TopicValue = mvaTValue 
End Property 

Friend Property Let TopicValue (strTo^e^'SiillSte As Variant) 

mvarValue = strTopicVaiue 
End Property 

9. On the Project menu, click Add Module. 

10. In the Properties window, change the (Name) property of Modulel to modGlobals. 

11. In the Code window for the modGlobals module, type the following: 

Option Explicit 

Public gobjXMLDoc As MSXML2 . DOMDocumentS 
Public gobjXMLNode As MSXML2 . IXMLDOMNode 
Public gobjCallback As Excel . IRTDUpdateEvent 

Public Const XML_FILE_PATH As String = "C:\Program files\RTD ServerVRTDJCML.janl" 
Public Const ROOT_NODE As String = "//prices/" 
Public Const TIMER_INTERVAL = 5000 
Public glngTimerlD As Long 

Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, _ 
ByVal nIDEvent As Long, ByVal uElapse As Long, _ 
ByVal IpTimerFunc As Long) As Long 

Public Declare Function KillTimer Lib "user32" (ByVal hWnd As I<ong, _ 
ByVal nIDEvent As Long) As Long 

Public Sub TimerCallback (ByVal hWnd As Long, ByVal uMsg As Long, _ 
ByVal idEvent As Long, ByVal dwTinie As Long) 

gob j Callback . UpdateNotif y 

End Sub 

12. Save the project as WideWorldRTD.vbp. 

13. On the File menu, click Make WldeWorldRTD.dll. 

14. On the Start menu, clici< Run. In the Open list, type regsvr32.exe "C:\Path-to-RTD- 
Scrver\WideWoridRTD.dll", where Path-to-RTD-Server is the path to the WideWorldRTD.dll file on your 
local computer. (If you skipped to this step from step 1 above, locate the WideWorldRTD.dll file Included with 
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the sample download that accompanies this article.) 
To set up the real-time data source: 

Open Notepad, type the followirvg code into a text file (or use the file RTDXML.xml in the sample download that 
accompanies tills article), and save the text file on your local computer in ttre path C:\Program Flles\RTD 
Server\RTDXML.xml: 

<?xml versioo="1.0"?> 
<prices> 

<chair>$29 . 95</chair> 
<lamp>$4 9 . 95</lamp> 
<table>$99 . 95</table> 

</prices> 



To set up Excel 2002 to display real-tiiiitiiMlli 
Start a new, blank Excel workbook and enter the M@Mng values: 



Cell 


lvalue 


Al 


i=RTD("WideWorldRTD.XMLRTD"„"chair") 


A2 


|=RTD("WideWoridRTD.XMLRTD"„"lamp") 


A3 


NSDrWideWoridR^ 



To make updates to the real-time data: 

1. Using Notepad, open the RTDXML.xml flie located in thie C:\Program Files\RTD Server\ foider. 

2. Change the values of the <chair>, <iamp>, or <tabie> tags, and save the RTDXML.xmi file. 

3. Within five seconds, these values will automatically overwrite the existing values in the Excel spreadsheet. 

Note This action may take longer than 5 seconds depending on the value of the RTD object's 
Throttielnterval property in Excel. 

Exploring the Solution 

Here's how the solution worl<s: 

1. When the user enters the first RTD function call (=RTD("wideWoridRTD.XMLRTD" , , "chair") ) into cell Al, Excel 
makes a call to the ServerStart method in the WideWorldRTD DLL. In the ServerStart method, the RTD 
server sets up the IRTDUpdateEvent callback object to receive update events from the XML data file, gets 
ready to connect to the XML data file, and initializes the five-second update timer. 

2. Next, Excel uses the ConnectData method to add the "chair" topic to the collection of topics currently being 
monitored. Excel assigns the "chair" topic an arbitrary, unique value (for example, "7") that Excel uses as a 
identifier to get and update the topic's value (because there could be several instances of the "chair" topic in 
one or more cells in one or more workbooks on the user's computer). Then Excel gets the initial value of the 
<chair> tag in the XML file. Finally, Excel stores the topic ID of "7", the topic string of "chair", and the topic 
value of "$29.95" in the collection of topics currently being monitored. 

3. Every five seconds, the Windows API function SetTfmer calls the custom TimerCailback method. The 
TImerCallback method sends a message to the IRTDUpdateEvent callback object's UpdateNotify method to 

checic the data in the XI^L file for updates. If there are updates, Excel eventually calls the RefreshData method 
to get new topic data values. (The TimerCailback method could be optimized more by only calling the 
UpdateNotify method when a change is made to the XML file, rather than calling the UpdateNotify method 

every five seconds.) 

4. The RefreshData method prepares a two-dimensional array of topic IDs and topic values that correspond to 
these topic IDs that were assigned by Excel In the ConnectData method. The RefreshData method then 
queries the XML file again for updated data values and uses the two-dimensional array to write the new data 
values to the topic in the collection of topics being monitored. For instance, if the "chair" topic value changed to 
"$39.95", the RefreshData method would overwrite the value of "$29.95" that was originally captured in the 
ConnectData method (or a previous RefreshData method call). 

5. If the topic is no longer needed (for example, the user deletes the RTD function call from cell Al), the 
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DisconnectData method removes the topic from the collection of topics being monitored. 

6. If the connection to the real-time data source is no longer needed (for example, the user quits all running 
instances of Excel), the ServeiTermlnate method removes the entire collection of topics being monitored and 
stops the flve-second update timer. 

Summary 

Microsoft Excel 2002 now provides you with a new way to view and update constantly changing data in real time. 
Using the Office development skills you already l<now, you can build solutions that let Excel interact with real-time 
data sources. In this article, you learned how to develop, deploy, and use RTD solutions in Excel. 

Disclaimer The example companies, organizations, products, domain names, e-mail addresses, 
logos, people, places, and events depicted herein are fictitious. No association with any real company, 
organization, product, domain name, e-mail sddPMSi logo, person, place, or event is intended or 
should be Inferred. 
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